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OLE Automation 1.0 



Name: Using OLE in Visual Basic applications. 

Author: Richard Quinn 

E-Mail: Richard.Quinn@IBM.NET 

Date: July 22, 1997 

Description: So, you've heard of OLE, you know what it is, but how do you use it? The simplest and quickest 
way to use OLE is by making use of the OLE container control, provided as standard by Visual Basic. With no 
programming, you can draw one of these controls onto your visual basic form, set the SourceDoc property to 
point to the file of your choice and there you are! You have created an OLE client application. Your program can 
play host to OLE server applications (such as Microsoft Excel) allowing the user access to professional level 
computing power. But, seeing as this definitely hasn't quenched your thirsty lust for knowledge, the following 
guide will explain how to programatically control what appears in your OLE container. You will also see how the 
Common Dialog is integrated into the rest of your project. 
Controls needed: Common Dialog, Command Button and OLE Container. 
Note: You will need Excel to complete this tutorial. 
Level: Beginner 



You will need to start a new project containing a single form, a Common Dialog control, a command button (nan 
(named objOLEContainer) Paste the following code into the declarations section of your form. 



Private Sub Form_Load ( ) 

'disable error messages for this procedure 
On Error Resume Next 

'centre the form 

! Me refers to this form 

'Move is more efficient than setting left and top properties 
'we use the \ operator to make integer divisions, 
'accuracy is not important but speed is. 

Me. Move (Screen . Width - Me . ScaleWidth) \ 2, _ 
(Screen. Height - Me . ScaleHeight ) \ 2 

'move the command button to the middle bottom of the form 
cbOpenFile.Move (Me . ScaleWidth - cbOpenFile .Width) \ 2, _ 

(Me . ScaleHeight - cbOpenFile . H( 

'move the OLE container to cover the rest of the form 
objOLEContainer .Move Me . ScaleLef t , _ 

Me.ScaleTop, _ 

Me. ScaleWidth, 

Me . ScaleHeight - cbOpenFile . Height 

'we want the contents of the container to be automatically 
'and proportionally resized 
objOLEContainer . SizeMode = vbOLESizeZoom 
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End Sub 

Private Sub cbOpenFile_Click ( ) 

On Error Resume Next 

'tell the common dialog that we want to know if the us* 
' cancel 

cdgDialog. CancelError = True 

'we want the common dialog to filter in only Excel fil< 
' filters are very useful when using the common dialog < 
cdgDialog. Filter = "Excel WorkBooks ( * . xls ) | * . xls I Comm; 

'tell the common dialog to show itself in the FileOpen 
cdgDialog . ShowOpen 

'Code stops executing and waits for a result from 
'the common dialog box 

'Did you press cancel? 
If Err = cdlCancel Then 

'Inform the user that this was a bad idea 

MsgBox "OOps ! You pressed cancel!", vbOKOnly, 1 

'and leave the sub 

Exit Sub 

End If 

'Did the user choose a respectable file name? 
If cdgDialog. FileName = vbNullString Then 

'Inform the user that this was a bad idea 

MsgBox "OOps! You didn't choose a file!", vbOK( 

'and leave the sub 

Exit Sub 

End If 

'everything appears OK, so we can tell the OLE contain* 
'to create an * embedded* link using the file chosen by 

objOLEContainer . CreateLink cdgDialog . FileName 

End Sub 

Private Sub objOLEContainer_Click ( ) 
On Error Resume Next 

'Tell the OLE container object to empty *linked* files 
objOLEContainer . Delete 

'see what errors happened during this process 
Select Case Err 

Case Is - 0 'no errors - Yippee! 

Case Else 'other errors 

'tell the user what error happened 

'Error (Err) returns the error message for the error nur 
MsgBox "Error number " & Err & " occurred. This means" 
Error (Err) 

End Select 
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End Sub 



Run the project and see how, very simply, you have given the user access to show whichever Excel file he (she) 
Clicking on the OLE control will remove its contents. 
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You will need to start a new project containing a single form, a Common Dialog control, a command button (nan 
(named objOLEContainer) Paste the following code into the declarations section of your form. 



Private Sub Form_Load ( ) 

'disable error messages for this procedure 
On Error Resume Next 

'centre the form 

f Me refers to this form 

'Move is more efficient than setting left and top properties 
'we use the \ operator to make integer divisions, 
'accuracy is not important but speed is. 

Me. Move ( Screen . Width - Me . ScaleWidth) \ 2, _ 
(Screen. Height - Me . ScaleHeight ) \ 2 

'move the command button to the middle bottom of the form 
cbOpenFile.Move (Me . ScaleWidth - cbOpenFile . Width) \ 2, _ 

(Me. ScaleHeight - cbOpenFile . H< 

'move the OLE container to cover the rest of the form 
objOLEContainer .Move Me . ScaleLef t , _ 

Me.ScaleTop, _ 

Me. ScaleWidth, _ 

Me. ScaleHeight - cbOpenFile . Height 



'we want the contents of the container to be automatically 
'and proportionally resized 
objOLEContainer . SizeMode = vbOLESizeZoom 
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End Sub 

Private Sub cbOpenFile_Click ( ) 

On Error Resume Next 

! tell the common dialog that we want to know if the us* 
1 cancel 

cdgDialog. CancelError = True 

f we want the common dialog to filter in only Excel fil< 
' filters are very useful when using the common dialog c 
cdgDialog. Filter = "Excel WorkBooks ( * . xls ) | * . xls | Comiru 

'tell the common dialog to show itself in the FileOpen 
cdgDialog. ShowOpen 

! Code stops executing and waits for a result from 
f the common dialog box 

1 Did you press cancel? 
If Err = cdlCancel Then 

'Inform the user that this was a bad idea 

MsgBox "OOps! You pressed cancel!", vbOKOnly, ' 

'and leave the sub 

Exit Sub 

End If 

'Did the user choose a respectable file name? 
If cdgDialog. FileName = vbNullString Then 

'Inform the user that this was a bad idea 
MsgBox "OOps! You didn't choose a file!", vbOK( 
'and leave the sub 
Exit Sub 

End If 

'everything appears OK, so we can tell the OLE contain* 
'to create an *embedded* link using the file chosen by 

objOLEContainer . CreateLink cdgDialog . FileName 

End Sub 

Private Sub objOLEContainer_Click ( ) 
On Error Resume Next 

'Tell the OLE container object to empty *linked* files 
objOLEContainer . Delete 

'see what errors happened during this process 
Select Case Err 

Case Is = 0 'no errors - Yippee! 

Case Else 'other errors 

'tell the user what error happened 

'Error (Err) returns the error message for the error nur 
MsgBox "Error number " & Err & " occurred. This means" 
Error (Err) 

End Select 



http://www. vbexplorer.com/VBExplorer/ole 1 .asp 



5/1/03 



, Visual Basic Explorer - OLE - Object Linking and Embedding Tutorial 



Page 3 of 3 



End Sub 



Run the project and see how, very simply, you have given the user access to show whichever Excel file he (she) 
Clicking on the OLE control will remove its contents. 
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Convention Planning 
The Gart ChErt Wy 

A Gant chart is simply a to-do list on a time line 
showing start and due dates for each item. A Gant 
chart's activities begin several months before the 
event, with items checked off as the checklist and 
timeline draw closer to the activity. Once a Gant 
chart is made for a particular event, it is a great 
tool to use for annual activities. The goal is to 
have each box checked off no later than the date 
that you assign the task. Here is a Gant chart to 
help you plan for Fall Convention: 

12 Months 

Qi Confirm days and dates of event. 

Qi Advertise in church's annual calendar. 

Budget for expenses that may not be cov- 
ered in registration costs (leaders expenses, 
travel, etc.). 

5 Months 

Ql Decide in a 1 or 2 night hotel stay. 

rL Secure reservations at hotel: note price/floor/ 
rooms/check-out times. 

Ql Secure church bus and van availability in re- 
gard to other church ministries. 

3 Months 

Ql Determine cost per student and what the cost 
includes: registration, travel, hotel, meals. 

Ql Determine if leaders' costs are included in the 
students' cost, or budgeted item or self-paid. 

Qi Determine a goal of how many you would like 
to take- set a record high and cast the vision. 

Ql Put up announcement posters in youth room, 
Sunday School rooms, announcement area. 

Qi Add dates to all announcement sheets distrib- 
uted to youth. 

^■1 Send parents a postcard to help them plan 
for their student to attend. 

nil Start announcing in weekly youth meetings. 
Start a sign-up list and assign leaders to em- 
phasize going to the event in their small 
groups. 

Ql Assign a leader to take deposits and monies 
for the trip. 

Ql Recruit adult leaders to attend: volunteer 
youth workers, parents, grandparents, etc. 

Qi Recruit extra drivers for the trip (avoid the 
main leader having to drive.) 

Qi Secure necessary CDL drivers' licenses for 
drivers. 

Ql Secure dates, prices with transportation 
company if vehicles must be rented. 



1 Month 

Show promotional video each week and ad- 
vertise intensely - Sunday announcements, 
too. 

Qi Call students and invite them to attend. 

Ql Have leaders ship the promotional video to first- 
time students' parents in their home. 

Qn Plan for a Speed the Light offering to bring - for 
your church plus per student. 

Qi Create and distribute registration, information 
forms, permission slips with times, details, etc. 

^1 Assign leaders to collect information. 

Turn in check requisitions to your church office. 

Ql Send in pre-registrations to Illinois Youth and 
College Ministries. 

4 Confirm vehicles, drivers, chaperons. 

2 Weeks 

Ql Turn in other check requisitions for petty 
cash, emergency funds, hotel, extra registra- 
tions. 

Qi Have a leader do a vehicle inspection of all ve- 
hicles, trailers, tires, etc. 

Ql Plan a special prayer meeting for church, fast a 
day or meals. 

[J Plan a trip meeting for parents and students: infor- 
mation guidelines, questions and answers. 

1 Week 

Qi Create a small schedule with room assignments 

and vital information to be given on the trip. 
Qi Call hotel for final room needs and check in/out 
p, times. 

^" Get checks from church office. 
Qi Fill up vehicles with gas and secure keys. 
Ql Type room list for hotel and for emergency con- 
tact file with phone numbers, etc., to call. 

Day of Trip 

Qj Meet with everyone for orientation, handouts 
and prayer. 

Head count before trip and after each stop. 

HM Assign responsibilities to particular students in 
each room: keys, schedule, luggage, etc. 

Qi Give schedule to drivers with planned meal 
stops and highlighted pick-up times. 

Qi Get room numbers at hotel front desk to write 
next to students' names on your housing list. 

Qi Hand out keys to assigned students. 

Qi Use the round trip for spiritual challenge, testi- 
monies, encouragement and prayer. 

After Trip 

Send thank you notes to students, leaders & 
parents. 

Share testimonies with the church. 

Start Gant Chart for next year's convention. 
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Do you need to build a project planner? 

Try the component suite you have been looking for. Project Plus provides you 
with the components you need to include project planning in your program. 
With its full featured gant, that includes all the drag and drop functionality your 
users learned to expect, and the customizable task grid you can quickly 
assemble the forms your users want. 

Free Source Code* 

We understand the need for obtaining the source code of anything you use in 
the development of you program. Because of this, when you purchase a 
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Name 


Start 


End 


Complete 


Duration 

jun97 aug97 okt97 des97 jan98 apr98 jun98 aug98 okt98 des98 feb99 


AKl i 


01/06/97 


01/05/98 


10 




Akt2 


01/02/98 


01/10/98 


20 




Akt3 


10/09/98 


01/02/99 


|40 




Akt4 


01/03/98 


01/01/99 


100 




Milestone 1 


01/05/98 




♦ 


Milestone2 


01/10/98 


♦ 



Your ID:[ 



I Reset 



26/12/97* 



General comments about the plan and progress: 
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